home *** CD-ROM | disk | FTP | other *** search
/ Dimension 64 14 / Dimension_64_Nr.14_19xx_-_de_Side_B.d64 / skateboard sam (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  86 lines
  1. 5 fori=54272to54296:pokei,0:next
  2. 10 poke53265,peek(53265)and239:poke657,128
  3. 20 si=54272:pokesi+24,8:pokesi+6,240:pokesi,193:pokesi+1,44
  4. 100 fori=0to57:reada
  5. 110 poke49152+i,a:next:sys49152
  6. 120 fori=0to207:reada:poke14344+i,a:poke15368+i,255-a:next
  7. 122 fori=0to79:reada:poke14720+i,a:poke15744+i,255-a:next
  8. 124 fori=0to119:reada:poke14856+i,a:next
  9. 126 fori=49152to49213:reada:pokei,a:next
  10. 130 print"[147][152]":poke53280,0:poke53281,12
  11. 135 fori=0to39:poke1024+i,42:poke55296+i,0:next
  12. 138 fori=0to39:poke1984+i,42:poke56256+i,0:next
  13. 140 print"   *****   m&m soft presents   *****"
  14. 150 print"            skateboard sam"
  15. 160 print"     written in 1985 by marc doinet"
  16. 170 print"  please wait for loading main-program"
  17. 200 poke53265,peek(53265)or16
  18. 205 fori=0to650:ifpeek(1184+i)<>32thenpoke55456+i,0:pokesi+4,17:forj=0to20:next
  19. 206 pokesi+4,0:next
  20. 208 fori=0to1200:next
  21. 210 poke53281,0:print"[147][144]load"chr$(34)"sam b"chr$(34)",8"
  22. 220 poke631,19:poke632,13:poke633,82:poke634,213:poke635,13:poke198,5
  23. 230 poke2816,0:poke44,11:poke56,127:new
  24. 1000 data120,169,0,141,250,0,141,252,0,169,51,141,1,0,169,208,141,251,0,169
  25. 1010 data56,141,253,0,162,0,160,0,177,250,145,252,200,208,249,238,251,0,238
  26. 1020 data253,0,232,224,8,208,236,169,55,141,1,0,88,169,31,141,24,208,96
  27. 1050 data126,70,66,126,66,66,66,0:rem a
  28. 1060 data124,110,102,124,102,102,124,0:remb
  29. 1070 data126,70,64,64,64,66,126,0:rem c
  30. 1080 data124,70,66,66,66,70,124,0:rem d
  31. 1090 data126,70,64,120,64,66,126,0:rem e
  32. 1100 data126,70,64,120,64,64,64,0:rem f
  33. 1110 data126,70,64,78,66,66,126,0:rem g
  34. 1120 data67,67,66,126,66,66,66,0:rem h
  35. 1130 data24,0,24,24,24,24,24,0:rem i
  36. 1140 data6,6,4,4,68,100,60,0:rem j
  37. 1150 data76,92,112,96,112,88,76,0:rem k
  38. 1160 data96,96,64,64,64,66,126,0:rem l
  39. 1170 data131,199,238,186,130,130,130,0:rem m
  40. 1180 data67,99,114,90,78,70,66,0:rem n
  41. 1190 data62,102,66,66,66,102,60,0:rem o
  42. 1200 data126,70,70,124,64,64,64,0:rem p
  43. 1210 data62,102,66,66,74,102,62,0:rem q
  44. 1220 data126,70,70,124,88,76,70,0:rem r
  45. 1230 data126,70,64,126,2,66,126,0:rem s
  46. 1240 data126,22,16,16,16,16,16,0:rem t
  47. 1250 data67,67,66,66,66,102,60,0:rem u
  48. 1260 data67,99,34,54,20,20,28,0:rem v
  49. 1270 data131,131,130,130,146,186,238,0:rem w
  50. 1280 data238,126,56,16,56,126,238,0:rem x
  51. 1290 data67,67,102,60,24,48,96,0:rem y
  52. 1300 data126,70,12,24,48,98,126,0:rem z
  53. 1310 data126,70,66,66,66,66,126,0:rem 0
  54. 1320 data24,8,8,8,8,8,28,0:rem 1
  55. 1330 data126,6,2,126,64,64,126,0:rem 2
  56. 1340 data126,6,2,14,2,2,126,0:rem 3
  57. 1350 data66,70,126,2,2,2,2,0:rem 4
  58. 1360 data126,70,64,124,6,70,60,0:rem 5
  59. 1370 data126,70,64,126,66,66,126,0:rem 6
  60. 1380 data124,12,4,14,4,4,4,0:rem 7
  61. 1390 data126,110,102,60,102,102,126,0:rem 8
  62. 1400 data126,110,102,126,2,2,2,0:rem 9
  63. 1410 data1,1,3,3,7,29,59,222
  64. 1420 data128,128,192,192,96,216,188,247
  65. 1430 data255,127,237,127,255,255,125,255
  66. 1440 data254,191,246,251,254,255,251,254
  67. 1450 data255,253,223,255,255,247,191,255
  68. 1460 data255,255,189,247,255,255,125,255
  69. 1470 data255,255,7,255,255,131,127,255
  70. 1480 data255,191,254,243,207,254,251,231
  71. 1490 data0,56,95,95,95,63,7,0
  72. 1500 data0,0,224,248,252,250,26,4
  73. 1510 data102,255,255,255,255,255,255,255
  74. 1520 data253,255,239,255,61,31,7,1
  75. 1530 data255,31,3,0,0,0,0,0
  76. 1540 data191,255,239,255,124,248,224,128
  77. 1550 data255,248,192,0,0,0,0,0
  78. 1560 data120,169,23,141,20,3,169,192
  79. 1570 data141,21,3,169,255,141,14,208
  80. 1580 data160,0,140,250,0,88,96,206
  81. 1590 data14,208,172,250,0,200,140,250
  82. 1600 data0,192,8,208,5,169,38,141
  83. 1610 data255,7,192,16,240,3,76,49
  84. 1620 data234,169,39,141,255,7,160,0
  85. 1630 data140,250,0,76,49,234
  86.